home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cstdio.arc / SRC.ARC / CONIO.A < prev    next >
Encoding:
Text File  |  1985-05-17  |  834 b   |  48 lines
  1. ;    conio.a - console I/O.
  2. ;    (C) Copyright 1984, 1985 Gregory R. Mansfield - All Rights Reserved.
  3. ;    G. R. Mansfield.  84/11/17.
  4. ;    Ver 1.0-5517.
  5.  
  6.  
  7.     include    "include/msdos.ah"
  8.  
  9.     dseg
  10. c    db    0        ; character from csts
  11.  
  12.     cseg
  13.     public    ci_
  14.     public    co_
  15.     public    csts_
  16.  
  17.  
  18. ;    char ci()    /* return keyboard character */
  19.  
  20. ci_:    mov    al,c        ; check character
  21.     or    al,al
  22.     jnz    cni1        ; if set
  23.     mov    ah,FR_DCI    ; request input
  24.     int    I_FCN
  25. cni1:    mov    ah,0        ; clear character from csts
  26.     mov    c,ah
  27.     ret
  28.  
  29.  
  30. ;    char csts()    /* return console status */
  31.  
  32. csts_:    mov    ah,FR_DCO    ; direct console I/O
  33.     mov    dl,0FFh        ; status request
  34.     int    I_FCN
  35.     mov    c,al        ; save character
  36.     xor    ah,ah
  37.     ret
  38.  
  39.  
  40. ;    co(c)    /* write character to console */
  41. ;    char c;
  42.  
  43. co_:    mov    bx,sp        ; character
  44.     mov    dl,[bx+2]
  45.     mov    ah,FR_DCO    ; direct console I/O
  46.     int    I_FCN
  47.     ret
  48.